home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / felony[cbs_1984].nbz / caseout (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.3 KB  |  83 lines
  1. 1 REM---"CASEOUT"---"3"
  2. 2 REM---***"LOAD'S 'PROGRAM' IN 3200"
  3. 5 IF PEEK(53247)<>3 THEN POKE 53247,3:POKE 45,PEEK(174):POKE 46,PEEK(175):CLR
  4. 10 ON FL GOTO 30
  5. 15 POKE 55,0:POKE 56,128:CLR
  6. 20 FL=1:LOAD"INPUT.O",8,1
  7. 30 POKE 53280,0:POKE 53281,0:POKE 53265,11:CA=PEEK(2452)
  8. 35 POKE 806,202:POKE 807,241:PRINTCHR$(5)CHR$(147):POKE 53272,21:POKE 53265,27
  9. 40 OPEN 1,8,8,"CASE"+STR$(CA)+",S,R"
  10. 120 Z1=1:F4=40:Z2=Z1*2:F8=80:F6=67:M$=CHR$(13)
  11. 121 S1=54272
  12. 130 GOSUB300
  13. 146 PRINT"[147]"CHR$(9)CHR$(14)CHR$(8):POKE 214,24:PRINT
  14. 147 GOSUB440:PRINT
  15. 150 GOSUB 13000:GOSUB799:IFLEN(A$)<F4THENPRINT
  16. 152 GOSUB 13000:GOSUB799:IFLEN(A$)<F4THENPRINT
  17. 153 FORDE=1TO2000:NEXT:PRINT:PRINT
  18. 157 POKE214,24:PRINT:GOSUB 300
  19. 160 GOSUB 14000
  20. 165 IF A$="*" THEN GOSUB 12000:GOTO 160
  21. 170 IFA$="@"THEN GOTO 3000
  22. 180 GOSUB800:GOTO 160
  23. 230 IFRND(1)*17>12THEN FORDE=1TO22:NEXT:RETURN
  24. 232 IFMID$(A$,X,Z1)<>" "THEN GOSUB380
  25. 240 FORDE=1TO12:NEXT
  26. 250 IFMID$(A$,X,1)<>" "THEN GOSUB410
  27. 260 FORDE=1TO10:NEXT
  28. 270 RETURN
  29. 290 END
  30. 300 REM SET UP
  31. 320 POKE 54286,135:POKE54287,12:REM L/H FREQU V3
  32. 321 POKE 54273,122  :REM H FREQU. V1
  33. 340 POKE 54291,0    :REM A/D V3
  34. 350 POKE 54292,240  :REM S/R V3
  35. 355 POKE 54296,10
  36. 360 POKE 54296,10   :REM VOL
  37. 361 POKE 54289,1    :REM PULSE RATE V3H
  38. 370 RETURN
  39. 380 REM-  MAIN SOUND GENERATION ON
  40. 390 POKE S1+18,33:POKE S1+18,21:POKE S1+18,17
  41. 400 RETURN
  42. 410 REM-  MAIN SOUND GENERATION OFF
  43. 420 POKE S1+18,33:POKE S1+18,32
  44. 430 RETURN
  45. 440 PRINT"              [195][193][211][197] #:" CA
  46. 450 RETURN
  47. 550 F1=2:FORX=1TO1000:NEXT:PRINT:IFLEN(A$)<>40 THENPRINT
  48. 555 GOTO 160
  49. 799 GOSUB 900:RETURN
  50. 800 GOSUB 900:IFLEN(A$)<F4THENPRINT
  51. 810 RETURN
  52. 900 FORX=1TOLEN(A$):PRINTMID$(A$,X,Z1);:SK=(SK+1):GOSUB230:NEXT:RETURN
  53. 910 GOSUB230:NEXT:RETURN
  54. 3000 CLOSE 1:PRINT:PRINT"        [212][193][208] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197].";:POKE198,0:WAIT198,1
  55. 3001 POKE53265,PEEK(53265)AND111:SYS 51200:PRINT"[147]";:POKE53265,PEEK(53265)AND127OR16
  56. 3002 PRINT:PRINT
  57. 3005 PRINT"                 "CHR$(9)"    "CHR$(14)
  58. 3010 PRINT"               "CHR$(9)"        "CHR$(14)
  59. 3020 PRINT"              "CHR$(9)"          "CHR$(14)
  60. 3030 PRINT"             "CHR$(9)"            "CHR$(14)
  61. 3040 PRINT"             "CHR$(9)"            "CHR$(14)
  62. 3050 PRINT"            "CHR$(9)"              "CHR$(14)
  63. 3060 PRINT"            "CHR$(9)"    POLICE    "CHR$(14)
  64. 3062 PRINT"           "CHR$(9)"                "CHR$(14)
  65. 3063 PRINT"           "CHR$(9)"  CARTOGRAPHER  "CHR$(14)
  66. 3067 PRINT"           "CHR$(9)"   [160]  [160]         "CHR$(14)
  67. 3070 PRINT"            "CHR$(9)"      AT      "CHR$(14)
  68. 3080 PRINT"            "CHR$(9)"              "CHR$(14)
  69. 3090 PRINT"             "CHR$(9)"    WORK    "CHR$(14)
  70. 3100 PRINT"             "CHR$(9)"            "CHR$(14)
  71. 3110 PRINT"              "CHR$(9)"          "CHR$(14)
  72. 3120 PRINT"               "CHR$(9)"        "CHR$(14)
  73. 3130 PRINT"                 "CHR$(9)"    "CHR$(14)
  74. 3140 PRINT:PRINT"       PLEASE WAIT APPROXIMATELY"
  75. 3160 PRINT:PRINT"              90 SECONDS"
  76. 3180 POKE 56,149
  77. 3200 CLR:LOAD"MAIN",8
  78. 12000 PRINT"        [212][193][208] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197].";:POKE 198,0
  79. 12010 WAIT198,1:FOR X= 1 TO 30:PRINTCHR$(157);:NEXT:FORX=1TO30:PRINT" ";:NEXT
  80. 12020 PRINT:RETURN
  81. 13000 REM
  82. 14000 SYS 32768,A$:RETURN
  83.